home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Time & Date Stuff / Week At A Glance / background_2675.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  9.0 KB  |  439 lines
  1. -- background: 2675 from stack: in
  2. -- bmap block id: 4506
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on zoomDay day
  8.   get field (day & "name")
  9.   convert it to long date
  10.   put it into field dayName of card dayZoomCard
  11.   put field (day & "text") into field dayText of card dayZoomCard
  12.   push card
  13.   go to card dayZoomCard
  14. end zoomDay
  15.  
  16. on closeField
  17.   set scroll of target to zero
  18. end closeField
  19.  
  20.  
  21.  
  22. -- part 28 (field)
  23. -- low flags: 00
  24. -- high flags: 2007
  25. -- rect: left=75 top=25 right=68 bottom=278
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: mondayText
  34.  
  35.  
  36. -- part 29 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=2 top=47 right=62 bottom=76
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 2
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 12
  47. -- part name: mondayName
  48.  
  49.  
  50. -- part 36 (field)
  51. -- low flags: 00
  52. -- high flags: 2007
  53. -- rect: left=75 top=67 right=110 bottom=278
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 9
  59. -- style flags: 0
  60. -- line height: 12
  61. -- part name: tuesdayText
  62.  
  63.  
  64. -- part 37 (field)
  65. -- low flags: 00
  66. -- high flags: 2007
  67. -- rect: left=75 top=109 right=152 bottom=278
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 9
  73. -- style flags: 0
  74. -- line height: 12
  75. -- part name: wednesdayText
  76.  
  77.  
  78. -- part 38 (field)
  79. -- low flags: 00
  80. -- high flags: 2007
  81. -- rect: left=75 top=151 right=194 bottom=278
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: thursdayText
  90.  
  91.  
  92. -- part 39 (field)
  93. -- low flags: 00
  94. -- high flags: 2007
  95. -- rect: left=75 top=193 right=236 bottom=278
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 12
  103. -- part name: fridayText
  104.  
  105.  
  106. -- part 40 (field)
  107. -- low flags: 00
  108. -- high flags: 2007
  109. -- rect: left=75 top=235 right=279 bottom=278
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 9
  115. -- style flags: 0
  116. -- line height: 12
  117. -- part name: saturdayText
  118.  
  119.  
  120. -- part 41 (field)
  121. -- low flags: 00
  122. -- high flags: 2007
  123. -- rect: left=75 top=277 right=320 bottom=278
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 9
  129. -- style flags: 0
  130. -- line height: 12
  131. -- part name: sundayText
  132.  
  133.  
  134. -- part 42 (field)
  135. -- low flags: 00
  136. -- high flags: 2007
  137. -- rect: left=277 top=24 right=320 bottom=510
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 2
  142. -- text size: 9
  143. -- style flags: 0
  144. -- line height: 12
  145. -- part name: weekText
  146.  
  147.  
  148. -- part 43 (field)
  149. -- low flags: 01
  150. -- high flags: 2002
  151. -- rect: left=2 top=2 right=26 bottom=510
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 0
  155. -- font id: 2
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: weekName
  160.  
  161.  
  162. -- part 44 (button)
  163. -- low flags: 00
  164. -- high flags: 0000
  165. -- rect: left=379 top=322 right=337 bottom=400
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 15420 / 15420
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: 
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   go to prev card of this background
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part 46 (button)
  182. -- low flags: 00
  183. -- high flags: 0000
  184. -- rect: left=395 top=322 right=337 bottom=415
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 16560 / 16560
  187. -- text alignment: 1
  188. -- font id: 0
  189. -- text size: 12
  190. -- style flags: 0
  191. -- line height: 16
  192. -- part name: 
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   go to next card of this background
  196. end mouseUp
  197.  
  198.  
  199.  
  200. -- part 47 (field)
  201. -- low flags: 01
  202. -- high flags: 0000
  203. -- rect: left=2 top=89 right=104 bottom=76
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 2
  208. -- text size: 9
  209. -- style flags: 0
  210. -- line height: 12
  211. -- part name: tuesdayName
  212.  
  213.  
  214. -- part 48 (field)
  215. -- low flags: 01
  216. -- high flags: 0000
  217. -- rect: left=2 top=131 right=146 bottom=76
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 2
  222. -- text size: 9
  223. -- style flags: 0
  224. -- line height: 12
  225. -- part name: wednesdayName
  226.  
  227.  
  228. -- part 49 (field)
  229. -- low flags: 01
  230. -- high flags: 0000
  231. -- rect: left=2 top=173 right=188 bottom=76
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 1
  235. -- font id: 2
  236. -- text size: 9
  237. -- style flags: 0
  238. -- line height: 12
  239. -- part name: thursdayName
  240.  
  241.  
  242. -- part 50 (field)
  243. -- low flags: 01
  244. -- high flags: 0000
  245. -- rect: left=2 top=215 right=230 bottom=76
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 2
  250. -- text size: 9
  251. -- style flags: 0
  252. -- line height: 12
  253. -- part name: fridayName
  254.  
  255.  
  256. -- part 51 (field)
  257. -- low flags: 01
  258. -- high flags: 0000
  259. -- rect: left=2 top=257 right=272 bottom=76
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 2
  264. -- text size: 9
  265. -- style flags: 0
  266. -- line height: 12
  267. -- part name: saturdayName
  268.  
  269.  
  270. -- part 52 (field)
  271. -- low flags: 01
  272. -- high flags: 0000
  273. -- rect: left=2 top=299 right=314 bottom=76
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 2
  278. -- text size: 9
  279. -- style flags: 0
  280. -- line height: 12
  281. -- part name: sundayName
  282.  
  283.  
  284. -- part 53 (button)
  285. -- low flags: 00
  286. -- high flags: 2000
  287. -- rect: left=5 top=28 right=65 bottom=73
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: 
  296. ----- HyperTalk script -----
  297. on mouseUp
  298.   zoomDay monday
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 57 (button)
  304. -- low flags: 00
  305. -- high flags: 2000
  306. -- rect: left=5 top=70 right=107 bottom=73
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: 
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   zoomDay tuesday
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 58 (button)
  323. -- low flags: 00
  324. -- high flags: 2000
  325. -- rect: left=5 top=112 right=149 bottom=73
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: 
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   zoomDay  wednesday
  337. end mouseUp
  338.  
  339.  
  340.  
  341. -- part 59 (button)
  342. -- low flags: 00
  343. -- high flags: 2000
  344. -- rect: left=5 top=154 right=191 bottom=73
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 1
  348. -- font id: 0
  349. -- text size: 12
  350. -- style flags: 0
  351. -- line height: 16
  352. -- part name: 
  353. ----- HyperTalk script -----
  354. on mouseUp
  355.   zoomDay thursday
  356. end mouseUp
  357.  
  358.  
  359.  
  360. -- part 60 (button)
  361. -- low flags: 00
  362. -- high flags: 2000
  363. -- rect: left=6 top=196 right=233 bottom=74
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 0 / 0
  366. -- text alignment: 1
  367. -- font id: 0
  368. -- text size: 12
  369. -- style flags: 0
  370. -- line height: 16
  371. -- part name: 
  372. ----- HyperTalk script -----
  373. on mouseUp
  374.   zoomDay friday
  375. end mouseUp
  376.  
  377.  
  378.  
  379. -- part 61 (button)
  380. -- low flags: 00
  381. -- high flags: 2000
  382. -- rect: left=6 top=238 right=275 bottom=74
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: 
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   zoomDay saturday
  394. end mouseUp
  395.  
  396.  
  397.  
  398. -- part 62 (button)
  399. -- low flags: 00
  400. -- high flags: 2000
  401. -- rect: left=6 top=280 right=317 bottom=74
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 1
  405. -- font id: 0
  406. -- text size: 12
  407. -- style flags: 0
  408. -- line height: 16
  409. -- part name: 
  410. ----- HyperTalk script -----
  411. on mouseUp
  412.   zoomDay sunday
  413. end mouseUp
  414.  
  415.  
  416.  
  417. -- part 63 (button)
  418. -- low flags: 00
  419. -- high flags: 2000
  420. -- rect: left=185 top=322 right=337 bottom=243
  421. -- title width / last selected line: 0
  422. -- icon id / first selected line: 0 / 0
  423. -- text alignment: 1
  424. -- font id: 0
  425. -- text size: 12
  426. -- style flags: 0
  427. -- line height: 16
  428. -- part name: 
  429. ----- HyperTalk script -----
  430. on mouseUp
  431.   set cursor to 4
  432.   set lockScreen to true
  433.   repeat number of cards - 1
  434.     go to next card of this background
  435.     if not( field mondayText is empty and field mondayText is empty and field tuesdayText is empty and field wednesdayText is empty and field thursdayText is empty and field fridayText is empty and field saturdayText is empty and field sundayText is empty and field weekText is empty) then exit repeat
  436.   end repeat
  437. end mouseUp
  438.  
  439.